home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue43 / recalc / CALCFLDS.PAS next >
Encoding:
Pascal/Delphi Source File  |  1998-12-10  |  4.2 KB  |  155 lines
  1. unit CalcFlds;
  2.  
  3. {$R-,S-,I-,O-,F-,A+,U+,K+,W-,V+,B-,X+,T-,P+,L+,Y+,D+}
  4.  
  5. //  These interposer classes allow CanModify to be overridden so that
  6. //  calculated fields may be edited.  This unit must appear after DB
  7. //  in the uses clause in each unit where thia facility is required.
  8.  
  9. interface
  10.  
  11. uses
  12.   Classes, DB;
  13.  
  14. type
  15.   TStringField = class(DB.TStringField)
  16.   protected
  17.     function  GetCanModify : boolean; override;
  18.   end;
  19.  
  20.   TNumericField = class(DB.TNumericField)
  21.   protected
  22.     function  GetCanModify : boolean; override;
  23.   end;
  24.  
  25.   TIntegerField = class(DB.TIntegerField)
  26.   protected
  27.     function  GetCanModify : boolean; override;
  28.   end;
  29.  
  30.   TSmallIntField = class(DB.TSmallIntField)
  31.   protected
  32.     function  GetCanModify : boolean; override;
  33.   end;
  34.  
  35.   TWordField = class(DB.TWordField)
  36.   protected
  37.     function  GetCanModify : boolean; override;
  38.   end;
  39.  
  40.   TAutoIncField = class(DB.TAutoIncField)
  41.   protected
  42.     function  GetCanModify : boolean; override;
  43.   end;
  44.  
  45.   TFloatField = class(DB.TFloatField)
  46.   protected
  47.     function  GetCanModify : boolean; override;
  48.   end;
  49.  
  50.   TCurrencyField = class(DB.TCurrencyField)
  51.   protected
  52.     function  GetCanModify : boolean; override;
  53.   end;
  54.  
  55.   TBooleanField = class(DB.TBooleanField)
  56.   protected
  57.     function  GetCanModify : boolean; override;
  58.   end;
  59.  
  60.   TDateTimeField = class(DB.TDateTimeField)
  61.   protected
  62.     function  GetCanModify : boolean; override;
  63.   end;
  64.  
  65.   TDateField = class(DB.TDateField)
  66.   protected
  67.     function  GetCanModify : boolean; override;
  68.   end;
  69.  
  70.   TTimeField = class(DB.TTimeField)
  71.   protected
  72.     function  GetCanModify : boolean; override;
  73.   end;
  74.  
  75.   TBinaryField = class(DB.TBinaryField)
  76.   protected
  77.     function  GetCanModify : boolean; override;
  78.   end;
  79.  
  80.   TBytesField = class(DB.TBytesField)
  81.   protected
  82.     function  GetCanModify : boolean; override;
  83.   end;
  84.  
  85.   TVarBytesField = class(DB.TVarBytesField)
  86.   protected
  87.     function  GetCanModify : boolean; override;
  88.   end;
  89.  
  90.   TBCDField = class(DB.TBCDField)
  91.   protected
  92.     function  GetCanModify : boolean; override;
  93.   end;
  94.  
  95.   TBlobField = class(DB.TBlobField)
  96.   protected
  97.     function  GetCanModify : boolean; override;
  98.   end;
  99.  
  100.   TMemoField = class(DB.TMemoField)
  101.   protected
  102.     function  GetCanModify : boolean; override;
  103.   end;
  104.  
  105.   TGraphicField = class(DB.TGraphicField)
  106.   protected
  107.     function  GetCanModify : boolean; override;
  108.   end;
  109.  
  110. implementation
  111.  
  112. {****************************************************************
  113. * FIELDS                                                        *
  114. ****************************************************************}
  115.  
  116. function TStringField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  117.  
  118. function TNumericField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  119.  
  120. function TIntegerField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  121.  
  122. function TSmallIntField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  123.  
  124. function TWordField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  125.  
  126. function TAutoIncField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  127.  
  128. function TFloatField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  129.  
  130. function TCurrencyField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  131.  
  132. function TBooleanField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  133.  
  134. function TDateTimeField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  135.  
  136. function TDateField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  137.  
  138. function TTimeField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  139.  
  140. function TBinaryField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  141.  
  142. function TBytesField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  143.  
  144. function TVarBytesField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  145.  
  146. function TBCDField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  147.  
  148. function TBlobField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  149.  
  150. function TMemoField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  151.  
  152. function TGraphicField.GetCanModify : boolean; begin Result := not ReadOnly; end;
  153.  
  154. end.
  155.